Sub inputTableValue(iTable As Integer, iRow As Integer, iColumn As Integer, sValue As String)
    If ActiveDocument.Tables.Count >= iTable Then
        With ActiveDocument.Tables(iTable).Cell(Row:=iRow, Column:=iColumn).Range
            .Delete
            .InsertAfter Text:=sValue
        End With
    Else
        MsgBox "Error:Table " & iTable & " Cell " & iRow & "," & iColumn & " not found!"
    End If
End Sub